home *** CD-ROM | disk | FTP | other *** search
/ START Magazine / START VOL 3 NO 8.st / PROLOG.ARC / MASH
Encoding:
Text File  |  1988-11-28  |  426 b   |  18 lines
  1. outranks(X,Y) :-
  2.         is_a(X,Z),
  3.         is_a(Y,W),
  4.         higher_than(Z,W).
  5.  
  6. is_a(sherman_potter,colonel).
  7. is_a(hawkeye_pierce,captain).
  8. is_a(charles_winchester,major).
  9. is_a(b_j_hunnicutt,captain).
  10. is_a(max_klinger,corporal).
  11.  
  12. higher_than(colonel,major).
  13. higher_than(colonel,captain).
  14. higher_than(colonel,corporal).
  15. higher_than(major,captain).
  16. higher_than(major,corporal).
  17. higher_than(captain,corporal).
  18.